home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
olrdrs
/
1st_111b.zip
/
SCRIPTS.ZIP
/
QMAIL4.SCR
< prev
next >
Wrap
Text File
|
1993-05-23
|
2KB
|
92 lines
' ┌─────────────────────────────────┐
' │ Qmail mail script for 1stReader │
' │ May 15th, 1993 │
' └─────────────────────────────────┘
IF SCR_CALL THEN GOTO SETUP
CAPTURE ON
KILL @API$(28)@API$(10).DL
NEWFILES ON
:SETUP
CALL $$PCB.SCR
IF NOT SCR_CALL THEN GOTO JOINCONF
TERMINAL
EXIT
:JOINCONF
COMMENT "@DATE@ @TIME@ Joining conference #@CONFERENCE@"
TRANSMIT "J @CONFERENCE@ Q - 1stReader #@API$(121)^M"
WAITFOR "=yes?" 3
IF FOUND=1 THEN TRANSMIT "N^M"
:DOOR
COMMENT "@DATE@ @TIME@ Opening Qmail Door"
TRANSMIT "@QMAIL@ PROMPTS^M"
LOOKFOR "<AUTOSTART>" "X'1B"
WAITFOR "Qmail Command?|<KEYFILE>"
LOOKFOR "<AUTOSTART>" ""
IF FOUND=1 THEN GOTO KEYWORDS
COMMAND "@DATE@ @TIME@ Downloading your keyfile"
DOWNLOAD @API$(28)1ST.KEY
WAITFOR "Qmail Command?" 20
:KEYWORDS
IF NOT KEYWORDS THEN GOTO REPLIES
TRANSMIT "K^M"
COMMENT "@DATE@ @TIME@ Transmitting keywords"
WAITFOR "<KEYUP>"
UPLOAD @API$(14)KEYWORDS
WAITFOR "Qmail Command?" 20
:REPLIES
IF NOT REPLIES THEN GOTO DOWNLOAD
TRANSMIT "U@API$(48)^M"
COMMENT "@DATE@ @TIME@ Uploading replies"
WAITFOR "<UPLOAD>"
UPLOAD @REPDIR@@BBSID@.REP
WAITFOR "DELETE PACKET>|DELETE NO>|BAD UPLD>|MESSAGES INSERTED>"
IF FOUND=1 THEN GOTO GOODUPLD
IF FOUND=4 THEN GOTO GOODUPLD
GOTO DOWNLOAD
:GOODUPLD
COMMENT "@DATE@ @TIME@ Deleting @BBSID@.REP"
KILL @REPDIR@@BBSID@.REP
COUNT REP
:DOWNLOAD
WAITFOR "Qmail Command?" 20
IF SCR_REPLY THEN GOTO GOODBYE
TRANSMIT "D@API$(48);Y;G^M"
:REPEAT
COMMENT "@DATE@ @TIME@ Scanning for new messages"
WAITFOR "<DOWNLOAD>|<NO TRANSFER>|<NO TIME>"
IF FOUND=1 THEN GOTO GETMAIL
GOTO GOODBYE
:GETMAIL
DOWNLOAD @FILEDIR@@BBSID@.QWK
WAITFOR "DL SUCCESS>|DL ERROR>"
IF FOUND=2 THEN GOTO EXIT
COUNT QWK
WAITFOR "<REPEAT>|Command?" 20
IF FOUND=1 THEN GOTO REPEAT
:GOODBYE
PAUSE 2
COMMENT "@DATE@ @TIME@ Transmitting GOODBYE command"
TRANSMIT "G^M"
:EXIT
COMMENT "@DATE@ @TIME@ Waiting for disconnect"
LOOKFOR "<GOODBYE>" "^M"
WAITFOR "<HANGUP>" 20
PAUSE 2
CAPTURE OFF